home *** CD-ROM | disk | FTP | other *** search
/ 1000 Apple LAN Literacy / 1000 Apple LAN Literacy.iso / Apple LAN Literacy / Literacy Segments Part 1 / Literacy Segments Part 1 / background_113496.txt < prev    next >
Text File  |  1989-08-22  |  12KB  |  544 lines
  1. -- background: 113496 from stack: in
  2. -- bmap block id: 113812
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 1.2.3 Practice2
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global answerTracker
  9.  
  10.   send mouseUp to bg btn "done"
  11.   repeat with i = 1 to 4
  12.     get line (line 2 of fld "key") of answerTracker
  13.     if it = "y" and i = line 1 of fld "key"
  14.     then set the hilite of bg btn ("item" & i) to true
  15.   else set the hilite of bg btn ("item" & i) to false
  16. end repeat
  17. pass openCard
  18. end openCard
  19.  
  20. on hideFeedback
  21.   lock screen
  22.   hide fld "Feedback1"
  23.   hide fld "Feedback2"
  24.   hide fld "Feedback3"
  25.   hide fld "Feedback4"
  26.   hide fld "CorrectAnswer"
  27.   hide fld "MasterFeedback"
  28.   hide bg btn "Done"
  29.   unlock screen
  30. end hideFeedback
  31.  
  32. on showFeedback
  33.   lock screen
  34.   show fld "Feedback1"
  35.   show fld "Feedback2"
  36.   show fld "Feedback3"
  37.   show fld "Feedback4"
  38.   show fld "CorrectAnswer"
  39.   show fld "MasterFeedback"
  40.   show bg btn "Done"
  41.   unlock screen
  42. end showFeedback
  43.  
  44. on feedback
  45.   global answerTracker
  46.   lock screen
  47.  
  48.   get last char of the short name of the target
  49.   if line (line 2 of fld "key") of answerTracker ‚↠"y" then
  50.     -- don't overwrite if Q has been answered
  51.     if it = line 1 of fld "key" then
  52.       -- this is the correct answer
  53.       put "y" into line (line 2 of fld "key") of answerTracker
  54.     else put "n" into line (line 2 of fld "key") of answerTracker
  55.   end if
  56.  
  57.   put fld ("feedback" & it) into fld "masterFeedback"
  58.   show fld "masterFeedback"
  59.   show bg btn "Done"
  60.  
  61.   unlock screen
  62. end feedback
  63.  
  64.  
  65. -- part 3 (field)
  66. -- low flags: 01
  67. -- high flags: 0000
  68. -- rect: left=18 top=1 right=38 bottom=442
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 0
  72. -- font id: 156
  73. -- text size: 24
  74. -- style flags: 10240
  75. -- line height: 32
  76. -- part name: Title
  77.  
  78.  
  79. -- part 5 (field)
  80. -- low flags: 81
  81. -- high flags: 0001
  82. -- rect: left=423 top=0 right=13 bottom=466
  83. -- title width / last selected line: 0
  84. -- icon id / first selected line: 0 / 0
  85. -- text alignment: 65535
  86. -- font id: 4
  87. -- text size: 9
  88. -- style flags: 0
  89. -- line height: 12
  90. -- part name: CardTitle
  91.  
  92.  
  93. -- part 14 (button)
  94. -- low flags: 00
  95. -- high flags: 0000
  96. -- rect: left=443 top=5 right=72 bottom=512
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: Instant Reference
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   instantReference "1.2.3"
  108. end mouseUp
  109.  
  110.  
  111. -- part 15 (button)
  112. -- low flags: 00
  113. -- high flags: 2000
  114. -- rect: left=480 top=143 right=172 bottom=511
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 1310 / 1310
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: Student Services
  123. ----- HyperTalk script -----
  124. on mousedown
  125.   SSpopUp
  126. end mousedown
  127.  
  128. on mouseup
  129.   if the mouseloc is not within the rect of me then exit to hyperCard
  130.   doSS
  131. end mouseup
  132.  
  133.  
  134.  
  135. -- part 16 (button)
  136. -- low flags: 00
  137. -- high flags: 2000
  138. -- rect: left=482 top=176 right=205 bottom=511
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 162 / 162
  141. -- text alignment: 1
  142. -- font id: 0
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: Help
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   Help
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 19 (button)
  155. -- low flags: 00
  156. -- high flags: 0000
  157. -- rect: left=493 top=319 right=341 bottom=512
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 1400 / 1400
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: Next
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.  
  169. end mouseUp
  170.  
  171.  
  172. -- part 20 (field)
  173. -- low flags: 01
  174. -- high flags: 0000
  175. -- rect: left=16 top=38 right=65 bottom=445
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 0 / 0
  178. -- text alignment: 0
  179. -- font id: 156
  180. -- text size: 20
  181. -- style flags: 0
  182. -- line height: 26
  183. -- part name: Subtitle
  184.  
  185.  
  186. -- part 21 (field)
  187. -- low flags: 01
  188. -- high flags: 0000
  189. -- rect: left=63 top=70 right=110 bottom=443
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 0 / 0
  192. -- text alignment: 0
  193. -- font id: 156
  194. -- text size: 16
  195. -- style flags: 0
  196. -- line height: 17
  197. -- part name: Question
  198.  
  199.  
  200. -- part 22 (field)
  201. -- low flags: 01
  202. -- high flags: 0000
  203. -- rect: left=63 top=114 right=134 bottom=444
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 0
  207. -- font id: 3
  208. -- text size: 10
  209. -- style flags: 256
  210. -- line height: 15
  211. -- part name: Instruction
  212.  
  213.  
  214. -- part 23 (field)
  215. -- low flags: 01
  216. -- high flags: 2004
  217. -- rect: left=67 top=139 right=184 bottom=447
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 0 / 0
  220. -- text alignment: 0
  221. -- font id: 156
  222. -- text size: 16
  223. -- style flags: 0
  224. -- line height: 17
  225. -- part name: Answer1
  226.  
  227.  
  228. -- part 24 (field)
  229. -- low flags: 01
  230. -- high flags: 2004
  231. -- rect: left=67 top=182 right=227 bottom=447
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 0
  235. -- font id: 156
  236. -- text size: 16
  237. -- style flags: 0
  238. -- line height: 17
  239. -- part name: Answer2
  240.  
  241.  
  242. -- part 25 (field)
  243. -- low flags: 01
  244. -- high flags: 2004
  245. -- rect: left=67 top=225 right=270 bottom=447
  246. -- title width / last selected line: 0
  247. -- icon id / first selected line: 0 / 0
  248. -- text alignment: 0
  249. -- font id: 156
  250. -- text size: 16
  251. -- style flags: 0
  252. -- line height: 17
  253. -- part name: Answer3
  254.  
  255.  
  256. -- part 26 (field)
  257. -- low flags: 01
  258. -- high flags: 2004
  259. -- rect: left=67 top=268 right=313 bottom=447
  260. -- title width / last selected line: 0
  261. -- icon id / first selected line: 0 / 0
  262. -- text alignment: 0
  263. -- font id: 156
  264. -- text size: 16
  265. -- style flags: 0
  266. -- line height: 17
  267. -- part name: Answer4
  268.  
  269.  
  270. -- part 31 (button)
  271. -- low flags: 00
  272. -- high flags: A004
  273. -- rect: left=179 top=321 right=340 bottom=324
  274. -- title width / last selected line: 0
  275. -- icon id / first selected line: 0 / 0
  276. -- text alignment: 1
  277. -- font id: 0
  278. -- text size: 12
  279. -- style flags: 0
  280. -- line height: 16
  281. -- part name: Answer
  282. ----- HyperTalk script -----
  283. on mouseUp
  284.   global answerTracker
  285.   lock screen
  286.   put "y" into line (line 2 of fld "key") of answerTracker
  287.   put fld "CorrectAnswer" into fld "MasterFeedback"
  288.   show fld "MasterFeedback"
  289.   show bg btn "Done"
  290.   unlock screen
  291. end mouseUp
  292.  
  293.  
  294. -- part 33 (button)
  295. -- low flags: 00
  296. -- high flags: 0000
  297. -- rect: left=478 top=319 right=341 bottom=498
  298. -- title width / last selected line: 0
  299. -- icon id / first selected line: 1401 / 1401
  300. -- text alignment: 1
  301. -- font id: 0
  302. -- text size: 12
  303. -- style flags: 0
  304. -- line height: 16
  305. -- part name: Prev
  306. ----- HyperTalk script -----
  307. on mouseUp
  308.  
  309. end mouseUp
  310.  
  311.  
  312. -- part 34 (field)
  313. -- low flags: 81
  314. -- high flags: 2007
  315. -- rect: left=8 top=36 right=94 bottom=231
  316. -- title width / last selected line: 0
  317. -- icon id / first selected line: 0 / 0
  318. -- text alignment: 0
  319. -- font id: 156
  320. -- text size: 16
  321. -- style flags: 0
  322. -- line height: 17
  323. -- part name: Feedback1
  324.  
  325.  
  326. -- part 36 (field)
  327. -- low flags: 81
  328. -- high flags: 2007
  329. -- rect: left=8 top=159 right=216 bottom=231
  330. -- title width / last selected line: 0
  331. -- icon id / first selected line: 0 / 0
  332. -- text alignment: 0
  333. -- font id: 156
  334. -- text size: 16
  335. -- style flags: 0
  336. -- line height: 17
  337. -- part name: Feedback3
  338.  
  339.  
  340. -- part 37 (field)
  341. -- low flags: 81
  342. -- high flags: 2007
  343. -- rect: left=8 top=219 right=277 bottom=231
  344. -- title width / last selected line: 0
  345. -- icon id / first selected line: 0 / 0
  346. -- text alignment: 0
  347. -- font id: 156
  348. -- text size: 16
  349. -- style flags: 0
  350. -- line height: 17
  351. -- part name: Feedback4
  352.  
  353.  
  354. -- part 39 (field)
  355. -- low flags: 81
  356. -- high flags: 2007
  357. -- rect: left=8 top=280 right=338 bottom=231
  358. -- title width / last selected line: 0
  359. -- icon id / first selected line: 0 / 0
  360. -- text alignment: 0
  361. -- font id: 156
  362. -- text size: 16
  363. -- style flags: 0
  364. -- line height: 17
  365. -- part name: CorrectAnswer
  366.  
  367.  
  368. -- part 42 (field)
  369. -- low flags: 81
  370. -- high flags: 2007
  371. -- rect: left=8 top=97 right=155 bottom=231
  372. -- title width / last selected line: 0
  373. -- icon id / first selected line: 0 / 0
  374. -- text alignment: 0
  375. -- font id: 156
  376. -- text size: 16
  377. -- style flags: 0
  378. -- line height: 17
  379. -- part name: Feedback2
  380.  
  381.  
  382. -- part 51 (button)
  383. -- low flags: 00
  384. -- high flags: 2000
  385. -- rect: left=482 top=294 right=320 bottom=509
  386. -- title width / last selected line: 0
  387. -- icon id / first selected line: 1236 / 1236
  388. -- text alignment: 1
  389. -- font id: 0
  390. -- text size: 12
  391. -- style flags: 0
  392. -- line height: 16
  393. -- part name: Last Menu
  394. ----- HyperTalk script -----
  395. on mouseUp
  396.   go cd "‚ÄúNetwork‚Äù Defined P/1"
  397. end mouseUp
  398.  
  399.  
  400.  
  401. -- part 53 (button)
  402. -- low flags: 00
  403. -- high flags: 2000
  404. -- rect: left=482 top=208 right=234 bottom=509
  405. -- title width / last selected line: 0
  406. -- icon id / first selected line: 1234 / 1234
  407. -- text alignment: 1
  408. -- font id: 0
  409. -- text size: 12
  410. -- style flags: 0
  411. -- line height: 16
  412. -- part name: Lesson
  413. ----- HyperTalk script -----
  414. on mouseUp
  415.   Lesson "1.2.3"
  416. end mouseUp
  417.  
  418.  
  419.  
  420. -- part 55 (button)
  421. -- low flags: 00
  422. -- high flags: 2000
  423. -- rect: left=68 top=140 right=181 bottom=444
  424. -- title width / last selected line: 0
  425. -- icon id / first selected line: 0 / 0
  426. -- text alignment: 1
  427. -- font id: 0
  428. -- text size: 12
  429. -- style flags: 0
  430. -- line height: 16
  431. -- part name: Item1
  432. ----- HyperTalk script -----
  433. on mouseUp
  434.   feedback
  435. end mouseUp
  436.  
  437.  
  438. -- part 56 (button)
  439. -- low flags: 00
  440. -- high flags: 2000
  441. -- rect: left=68 top=183 right=224 bottom=444
  442. -- title width / last selected line: 0
  443. -- icon id / first selected line: 0 / 0
  444. -- text alignment: 1
  445. -- font id: 0
  446. -- text size: 12
  447. -- style flags: 0
  448. -- line height: 16
  449. -- part name: Item2
  450. ----- HyperTalk script -----
  451. on mouseUp
  452.   feedback
  453. end mouseUp
  454.  
  455.  
  456. -- part 57 (button)
  457. -- low flags: 00
  458. -- high flags: 2000
  459. -- rect: left=68 top=226 right=267 bottom=444
  460. -- title width / last selected line: 0
  461. -- icon id / first selected line: 0 / 0
  462. -- text alignment: 1
  463. -- font id: 0
  464. -- text size: 12
  465. -- style flags: 0
  466. -- line height: 16
  467. -- part name: Item3
  468. ----- HyperTalk script -----
  469. on mouseUp
  470.   feedback
  471. end mouseUp
  472.  
  473.  
  474. -- part 58 (button)
  475. -- low flags: 00
  476. -- high flags: 2000
  477. -- rect: left=68 top=269 right=310 bottom=444
  478. -- title width / last selected line: 0
  479. -- icon id / first selected line: 0 / 0
  480. -- text alignment: 1
  481. -- font id: 0
  482. -- text size: 12
  483. -- style flags: 0
  484. -- line height: 16
  485. -- part name: Item4
  486. ----- HyperTalk script -----
  487. on mouseUp
  488.   feedback
  489. end mouseUp
  490.  
  491.  
  492. -- part 40 (field)
  493. -- low flags: 81
  494. -- high flags: 2004
  495. -- rect: left=147 top=132 right=304 bottom=356
  496. -- title width / last selected line: 0
  497. -- icon id / first selected line: 0 / 0
  498. -- text alignment: 0
  499. -- font id: 156
  500. -- text size: 16
  501. -- style flags: 0
  502. -- line height: 17
  503. -- part name: MasterFeedback
  504.  
  505.  
  506. -- part 41 (button)
  507. -- low flags: 80
  508. -- high flags: A002
  509. -- rect: left=215 top=279 right=296 bottom=284
  510. -- title width / last selected line: 0
  511. -- icon id / first selected line: 0 / 0
  512. -- text alignment: 1
  513. -- font id: 0
  514. -- text size: 12
  515. -- style flags: 0
  516. -- line height: 16
  517. -- part name: Done
  518. ----- HyperTalk script -----
  519. on mouseUp
  520.   global answerTracker
  521.   lock screen
  522.   if line (line 2 of fld "key") of answerTracker = "y" then
  523.     -- question correctly answered
  524.     set the hilite of bg btn ("item" & line 1 of fld "key") to true
  525.   end if
  526.   hide fld "MasterFeedback"
  527.   hide bg btn "Done"
  528.   unlock screen
  529. end mouseUp
  530.  
  531.  
  532. -- part 59 (field)
  533. -- low flags: 81
  534. -- high flags: 0002
  535. -- rect: left=2 top=306 right=341 bottom=65
  536. -- title width / last selected line: 0
  537. -- icon id / first selected line: 0 / 0
  538. -- text alignment: 0
  539. -- font id: 3
  540. -- text size: 12
  541. -- style flags: 0
  542. -- line height: 16
  543. -- part name: key
  544.